home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / testfiles / TestScreen < prev    next >
Encoding:
Text File  |  2002-03-13  |  359 b   |  19 lines
  1. scr <- Screen new
  2.  
  3. scr setScreenModeID: 16r40D20001
  4. scr open: 'TestScreen'
  5.  
  6. scr pushScreenDown: 50
  7. scr displayBeep
  8. scr screenToBack
  9. scr pullScreenUp: -50
  10. scr screenToFront
  11.  
  12. depth <- scr getDepth
  13. vmode <- scr getViewMode
  14.  
  15. ( 'Screen depth is ', depth asString) print
  16. ( 'Screen ViewMode is ', vmode asHex) print
  17.  
  18. ( 'enter "scr close" to kill TestScreen' ) print
  19.